home *** CD-ROM | disk | FTP | other *** search
- object PreviewForm: TPreviewForm
- Left = 78
- Top = 111
- BorderStyle = bsDialog
- Caption = 'Birth Announcement Preview'
- ClientHeight = 477
- ClientWidth = 658
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnActivate = FormActivate
- TextHeight = 16
- object Panel1: TPanel
- Left = 8
- Top = 8
- Width = 513
- Height = 457
- BevelWidth = 3
- Color = clWindow
- TabOrder = 0
- object Label1: TLabel
- Left = 16
- Top = 16
- Width = 314
- Height = 22
- Caption = 'Birth Announcement - Sample Report'
- Font.Color = clNavy
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Image1: TImage
- Left = 392
- Top = 8
- Width = 105
- Height = 81
- Picture.Data = {<image000.bmp>}
- end
- object Label2: TLabel
- Left = 440
- Top = 64
- Width = 64
- Height = 13
- Caption = 'by PC Baby 3'
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Announcing: TLabel
- Left = 0
- Top = 112
- Width = 513
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'Announcing the Arrival of'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label3: TLabel
- Left = 128
- Top = 168
- Width = 50
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Arrived:'
- end
- object Label4: TLabel
- Left = 129
- Top = 208
- Width = 49
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Height:'
- end
- object Label5: TLabel
- Left = 128
- Top = 232
- Width = 50
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Weight:'
- end
- object Label6: TLabel
- Left = 145
- Top = 256
- Width = 33
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Hair:'
- end
- object Label7: TLabel
- Left = 137
- Top = 280
- Width = 41
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Eyes:'
- end
- object Label8: TLabel
- Left = 88
- Top = 320
- Width = 90
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Hospital:'
- end
- object Label9: TLabel
- Left = 80
- Top = 344
- Width = 98
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'City:'
- end
- object Label10: TLabel
- Left = 104
- Top = 368
- Width = 74
- Height = 16
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'State:'
- end
- object Label11: TLabel
- Left = 0
- Top = 408
- Width = 513
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'Report generated by PC Baby 3, by Campbell Software �1992-96, Al' +
- 'l Rights Reserved'
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Date: TLabel
- Left = 184
- Top = 168
- Width = 84
- Height = 16
- Caption = 'Date of Arrival'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Time: TLabel
- Left = 184
- Top = 184
- Width = 84
- Height = 16
- Caption = 'Date of Arrival'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Height: TLabel
- Left = 184
- Top = 208
- Width = 84
- Height = 16
- Caption = 'Date of Arrival'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Weight: TLabel
- Left = 184
- Top = 232
- Width = 84
- Height = 16
- Caption = 'Date of Arrival'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Hair: TLabel
- Left = 184
- Top = 256
- Width = 84
- Height = 16
- Caption = 'Date of Arrival'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Eyes: TLabel
- Left = 184
- Top = 280
- Width = 84
- Height = 16
- Caption = 'Date of Arrival'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Hospital: TLabel
- Left = 184
- Top = 320
- Width = 84
- Height = 16
- Caption = 'Date of Arrival'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object City: TLabel
- Left = 184
- Top = 344
- Width = 84
- Height = 16
- Caption = 'Date of Arrival'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object State: TLabel
- Left = 184
- Top = 368
- Width = 84
- Height = 16
- Caption = 'Date of Arrival'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- end
- object OKBtn: TBitBtn
- Left = 552
- Top = 83
- Width = 93
- Height = 31
- Caption = 'Close'
- Default = True
- Font.Color = clGreen
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ModalResult = 1
- ParentFont = False
- TabOrder = 1
- OnClick = OKBtnClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000D80E00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555205555555555555222055555555555522205555
- 5555555222220555555555222222055555555722052220555555720555522055
- 5555555555522205555555555555220555555555555552205555555555555572
- 0555555555555557205555555555555552205555555555555555}
- Margin = 8
- Spacing = -1
- end
- object ChildTable: TTable
- TableName = 'CHILD.DB'
- Left = 584
- Top = 8
- object ChildTableFirstName: TStringField
- FieldName = 'FirstName'
- Size = 50
- end
- object ChildTableMiddleName: TStringField
- FieldName = 'MiddleName'
- Size = 50
- end
- object ChildTableLastName: TStringField
- FieldName = 'LastName'
- Size = 50
- end
- object ChildTableBDateDay: TStringField
- FieldName = 'BDateDay'
- Size = 5
- end
- object ChildTableBirthDay: TStringField
- FieldName = 'BirthDay'
- Size = 15
- end
- object ChildTableBirthHt: TStringField
- FieldName = 'BirthHt'
- Size = 4
- end
- object ChildTablePhysician: TStringField
- FieldName = 'Physician'
- Size = 50
- end
- object ChildTablePediatrician: TStringField
- FieldName = 'Pediatrician'
- Size = 50
- end
- object ChildTableHospital: TStringField
- FieldName = 'Hospital'
- Size = 50
- end
- object ChildTableBirthCity: TStringField
- FieldName = 'BirthCity'
- Size = 50
- end
- object ChildTableBirthState: TStringField
- FieldName = 'BirthState'
- Size = 2
- end
- object ChildTableBirthCountry: TStringField
- FieldName = 'BirthCountry'
- Size = 50
- end
- object ChildTableH1: TStringField
- FieldName = 'H1'
- Size = 155
- end
- object ChildTableH2: TStringField
- FieldName = 'H2'
- Size = 155
- end
- object ChildTableH3: TStringField
- FieldName = 'H3'
- Size = 155
- end
- object ChildTableH4: TStringField
- FieldName = 'H4'
- Size = 155
- end
- object ChildTableH5: TStringField
- FieldName = 'H5'
- Size = 155
- end
- object ChildTableH6: TStringField
- FieldName = 'H6'
- Size = 155
- end
- object ChildTableH7: TStringField
- FieldName = 'H7'
- Size = 155
- end
- object ChildTableHair: TStringField
- FieldName = 'Hair'
- Size = 25
- end
- object ChildTableEyes: TStringField
- FieldName = 'Eyes'
- Size = 25
- end
- object ChildTableBDayMonth: TStringField
- FieldName = 'BDayMonth'
- Size = 5
- end
- object ChildTableBDayYear: TStringField
- FieldName = 'BDayYear'
- Size = 10
- end
- object ChildTableBTimeHr: TStringField
- FieldName = 'BTimeHr'
- Size = 5
- end
- object ChildTableBTimeMin: TStringField
- FieldName = 'BTimeMin'
- Size = 5
- end
- object ChildTableBTimeAmPm: TStringField
- FieldName = 'BTimeAmPm'
- Size = 5
- end
- object ChildTableAddress: TStringField
- FieldName = 'Address'
- Size = 50
- end
- object ChildTableCity: TStringField
- FieldName = 'City'
- Size = 50
- end
- object ChildTableState: TStringField
- FieldName = 'State'
- end
- object ChildTableCounty: TStringField
- FieldName = 'County'
- Size = 50
- end
- object ChildTableBirthWeightOz: TStringField
- FieldName = 'BirthWeightOz'
- Size = 3
- end
- object ChildTableBirthWeightLb: TStringField
- FieldName = 'BirthWeightLb'
- Size = 2
- end
- end
- end
-